home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / menuevnt.def < prev    next >
Text File  |  1995-11-25  |  5KB  |  107 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version: 20.12.89   00:164:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE MenuEvnt;
  20. FROM SYSTEM IMPORT ADDRESS;
  21. CONST
  22.       MINDMENU = 0;      (* TREE *)
  23.       DESK = 3;      (* OBJECT in TREE #0 *)
  24.       ABOUT = 10;      (* OBJECT in TREE #0 *)
  25.       DATEI = 4;      (* OBJECT in TREE #0 *)
  26.       LOAD = 21;      (* OBJECT in TREE #0 *)
  27.       SAVE = 22;      (* OBJECT in TREE #0 *)
  28.       EDIT = 23;      (* OBJECT in TREE #0 *)
  29.       QUIT = 20;      (* OBJECT in TREE #0 *)
  30.       SESSION = 5;      (* OBJECT in TREE #0 *)
  31.       OPTIONS = 6;      (* OBJECT in TREE #0 *)
  32.       EXTRAS = 7;      (* OBJECT in TREE #0 *)
  33.       HELP = 45;      (* OBJECT in TREE #0 *)
  34.       EARTHHAR = 28;      (* OBJECT in TREE #0 *)
  35.       MBEDIT = 1;      (* TREE *)
  36.       ANFREQ = 1;      (* OBJECT in TREE #1 *)
  37.       ENDFREQ = 2;      (* OBJECT in TREE #1 *)
  38.       GESCHWIN = 3;      (* OBJECT in TREE #1 *)
  39.       A1 = 5;      (* OBJECT in TREE #1 *)
  40.       A2 = 6;      (* OBJECT in TREE #1 *)
  41.       A3 = 7;      (* OBJECT in TREE #1 *)
  42.       A4 = 8;      (* OBJECT in TREE #1 *)
  43.       TEST = 43;      (* OBJECT in TREE #0 *)
  44.       OKAY = 14;      (* OBJECT in TREE #1 *)
  45.       CANCEL = 13;      (* OBJECT in TREE #1 *)
  46.       ANREGUNG = 29;      (* OBJECT in TREE #0 *)
  47.       A5 = 9;      (* OBJECT in TREE #1 *)
  48.       A6 = 10;      (* OBJECT in TREE #1 *)
  49.       A7 = 11;      (* OBJECT in TREE #1 *)
  50.       A8 = 12;      (* OBJECT in TREE #1 *)
  51.       B1 = 16;      (* OBJECT in TREE #1 *)
  52.       B2 = 17;      (* OBJECT in TREE #1 *)
  53.       B3 = 18;      (* OBJECT in TREE #1 *)
  54.       B4 = 19;      (* OBJECT in TREE #1 *)
  55.       B5 = 20;      (* OBJECT in TREE #1 *)
  56.       B6 = 21;      (* OBJECT in TREE #1 *)
  57.       B7 = 22;      (* OBJECT in TREE #1 *)
  58.       B8 = 23;      (* OBJECT in TREE #1 *)
  59.       C1 = 25;      (* OBJECT in TREE #1 *)
  60.       C2 = 26;      (* OBJECT in TREE #1 *)
  61.       C3 = 27;      (* OBJECT in TREE #1 *)
  62.       C4 = 28;      (* OBJECT in TREE #1 *)
  63.       C5 = 29;      (* OBJECT in TREE #1 *)
  64.       C6 = 30;      (* OBJECT in TREE #1 *)
  65.       C7 = 31;      (* OBJECT in TREE #1 *)
  66.       C8 = 32;      (* OBJECT in TREE #1 *)
  67.       D1 = 34;      (* OBJECT in TREE #1 *)
  68.       D2 = 35;      (* OBJECT in TREE #1 *)
  69.       D3 = 36;      (* OBJECT in TREE #1 *)
  70.       D4 = 37;      (* OBJECT in TREE #1 *)
  71.       D5 = 38;      (* OBJECT in TREE #1 *)
  72.       D6 = 39;      (* OBJECT in TREE #1 *)
  73.       D7 = 40;      (* OBJECT in TREE #1 *)
  74.       D8 = 41;      (* OBJECT in TREE #1 *)
  75.       NEXT = 42;      (* OBJECT in TREE #1 *)
  76.       XSESSION = 31;      (* OBJECT in TREE #0 *)
  77.       PREVIOUS = 43;      (* OBJECT in TREE #1 *)
  78.       TON = 39;      (* OBJECT in TREE #0 *)
  79.       LEDS = 40;      (* OBJECT in TREE #0 *)
  80.       MAGNET = 41;      (* OBJECT in TREE #0 *)
  81.       BUECHER = 46;      (* OBJECT in TREE #0 *)
  82.       HARDWARE = 47;      (* OBJECT in TREE #0 *)
  83.       INSERT = 44;      (* OBJECT in TREE #1 *)
  84.       DELETE = 45;      (* OBJECT in TREE #1 *)
  85.       NEW = 25;      (* OBJECT in TREE #0 *)
  86.       MERGE = 24;      (* OBJECT in TREE #0 *)
  87.       DAUER = 46;      (* OBJECT in TREE #1 *)
  88.       VERLAUF = 32;      (* OBJECT in TREE #0 *)
  89.       STEPXOFN = 48;      (* OBJECT in TREE #1 *)
  90.       SOUNDDIA = 2;      (* TREE *)
  91.       ABOUTDIA = 3;      (* TREE *)
  92.       LITERDIA = 4;      (* TREE *)
  93.       GEGENDIA = 5;      (* TREE *)
  94.       HARDWDIA = 6;      (* TREE *)
  95.       GEGENANZ = 48;      (* OBJECT in TREE #0 *)
  96.       HARALDW = 34;      (* OBJECT in TREE #0 *)
  97.       HYPNOSYN = 35;      (* OBJECT in TREE #0 *)
  98.       MIDSUMME = 33;      (* OBJECT in TREE #0 *)
  99.       ALLGBENU = 36;      (* OBJECT in TREE #0 *)
  100.       RUHEWACH = 37;      (* OBJECT in TREE #0 *)
  101. ə
  102.  
  103.  
  104. PROCEDURE  MenueEreignis(msgret:INTEGER;menueadresse:ADDRESS):BOOLEAN;
  105.  
  106. END MenuEvnt.
  107.